home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / macros3.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  5.8 KB  |  101 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (ETHE LETF LETF*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4
  8.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) ETHE
  9.    REMOVE-OLD-DEFINITIONS MACRO
  10.    #Y(ETHE
  11.       #76Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 39 94 54 70 95 54 54 70 36 01
  12.            6A A4 D6 AB D7 AB D8 AE 73 02 73 02 73 01 D9 DA AE DB B2 73 02 73 03
  13.            DC AF 73 02 DD DE DB B3 73 02 B2 DB B6 73 02 73 05 73 04 73 03 59 03
  14.            19 06 AA 2D 01 19 03
  15.           )
  16.       3. MACRO-CALL-ERROR THE LET MULTIPLE-VALUE-LIST IF %THE QUOTE VALUES-LIST
  17.       ERROR
  18.       "The form ~S yielded ~:[no values~;~:*~{~S~^ ; ~}~] ,~@
  19.                              that's not of type ~S."
  20.   )  )
  21. #Y(#:TOP-LEVEL-FORM-5
  22.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LETF*
  23.    REMOVE-OLD-DEFINITIONS MACRO
  24.    #Y(LETF*
  25.       #55Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 1B 94 54 70 95 54 71 A8
  26.            5B AD 2F 64 3E 02 89 00 10 00 14 AC A9 AC 2B 03 03 3B 19 08 AA 2D 01
  27.            19 03 D6 93 72 59 01 1A 6A
  28.           )
  29.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF*
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  32.    EXPAND-LETF* REMOVE-OLD-DEFINITIONS
  33.    #Y(EXPAND-LETF*
  34.       #372Y(00 03 00 00 00 04 95 1F 80 5E 8B 03 01 02 94 20 80 A6 94 EB 74 00
  35.             8C 06 AE AE 26 6A 3E 02 95 1F 80 B2 8B 03 23 08 80 D7 AB 2D 0B 3E
  36.             05 36 01 6A A4 D5 E0 AF AF 6B 01 17 8B 05 AC 73 02 AB B4 73 02 73
  37.             02 6B 02 21 B7 E1 E2 AD 8B 09 B1 36 03 69 D4 B5 73 03 AF 73 03 73
  38.             01 6B 02 20 6B 02 1F 5C 3C 02 19 0F D4 AC 5A 01 89 03 79 D5 5B AC
  39.             AC 6B 02 20 6B 02 1F 5C 3C 02 19 04 7E 02 01 94 54 53 EA 93 1F 14
  40.             8B 01 24 02 0F A9 6A 63 24 03 09 93 54 53 EB D8 A9 59 02 EA 93 1F
  41.             FF 7A 8B 01 24 05 FF 74 A9 6A 63 24 06 FF 6D 93 54 54 53 EB D9 94
  42.             54 70 AA 59 03 EA 1A 60 94 54 1F 06 94 54 54 1C FF B8 DB AB 5A 01
  43.             D5 AC AC 73 02 95 54 53 72 95 54 54 1A 11 89 00 6F D5 AC AC 73 02
  44.             73 01 B1 AC 73 01 31 02 20 14 6B 02 1F 02 1A 80 82 DE 8C 04 AC B2
  45.             AD 73 01 6B 02 20 6B 03 1F 00 1A 80 70 DD AC 87 00 26 68 01 04 8C
  46.             07 1A 30 8B 00 7A 01 2D 0B 3E 05 8B 02 A9 73 02 E0 AE AE 6B 01 17
  47.             B3 2F CB 55 F3 36 01 6A A4 A8 7B 09 A8 8B 04 AC 36 03 69 D4 7B 08
  48.             16 01 A9 7B 06 16 05 92 20 4D D5 AD 6A 65 B6 DE AF 6A 65 B4 BA E1
  49.             E2 B3 6A 65 B8 73 01 31 02 20 72 B2 6A 65 6B 02 1F 73 01 6B 02 20
  50.             6B 03 1F 73 01 6B 02 20 31 02 1F 16 04 EA 02 14 3C 02 19 09
  51.            )
  52.       "LETF* code contains a dotted list, ending with ~S" LET* VALUES-LIST 2.
  53.       MULTIPLE-VALUE-LIST THE 3. "illegal syntax in LETF* binding: ~S" VALUES
  54.       #.#'SYMBOLP MULTIPLE-VALUE-BIND GET-SETF-METHOD #.#'LIST UNWIND-PROTECT
  55.       PROGN
  56.   )  )
  57. #Y(#:TOP-LEVEL-FORM-7
  58.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) LETF
  59.    REMOVE-OLD-DEFINITIONS MACRO
  60.    #Y(LETF
  61.       #267Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 1E 94 54 70 95 54 71
  62.             A8 5B AD 2F 64 3E 02 89 00 13 00 14 5B AD 2D 03 3E 04 AB 78 65 03
  63.             1A 2B AA 2D 01 19 03 D6 93 72 59 01 1A 67 AB 5B 1A 80 95 8B 00 99
  64.             53 54 70 73 02 7B 07 AA AE 36 06 C2 EC C3 EB DA 78 6D 05 7A 06 16
  65.             03 95 1F 80 7D 95 53 70 A8 86 2D 06 A8 30 9E 51 1B 50 16 01 1C 80
  66.             6B 1A 68 DB DC AD AC 31 02 20 72 AC 6B 02 1F 59 01 EB 75 00 8A 04
  67.             80 62 DD AD B1 AC 6B 02 20 6B 02 1F 59 01 EB 75 00 8A 06 80 53 DE
  68.             AF B1 AC 6B 02 20 6B 02 1F 59 01 EB 75 00 8A 05 80 44 DF AE B1 AC
  69.             6B 02 20 6B 02 1F 59 01 EB 75 00 8A 00 35 1A 36 DC 94 1A 80 43 93
  70.             53 19 0F 7E 01 00 54 70 95 21 FF 6D 7A 01 A9 84 B6 71 16 03 AB 78
  71.             65 03 AF 5B 89 03 FF 8D 89 04 FF 9E 89 06 FF AD 89 05 FF BC 89 00
  72.             03 8A 07 4A 8A 07 4C 8A 00 06 93 53 70 24 07 43 E0 B0 AB 31 02 20
  73.             55 19 0F
  74.            )
  75.       2. MACRO-CALL-ERROR DECLARE EXPAND-LETF #.#'SECOND #.#'EQ 1.
  76.       UNWIND-PROTECT PROGN LET* LET LETF* LOCALLY
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  79.    EXPAND-LETF REMOVE-OLD-DEFINITIONS
  80.    #Y(EXPAND-LETF
  81.       #331Y(00 01 00 00 00 02 93 1F 80 4F 8B 01 01 02 94 20 80 8E 94 EB 74 00
  82.             8C 04 26 6C 3E 04 97 1F 80 8E 8B 05 23 07 80 CE AD 2D 0A 3E 05 36
  83.             01 6A A4 DD AE AE 6B 01 17 8B 04 AB 73 02 AA B5 73 02 73 02 6B 02
  84.             21 B1 AA 8B 06 AE 36 03 69 D4 9C 72 AD 9C 72 3C 04 19 0F D4 AA 5A
  85.             01 89 01 79 01 04 3C 04 19 02 7E 02 01 94 54 53 EA 93 1F 14 8B 01
  86.             24 01 0F A9 6A 63 24 02 09 93 54 53 EB D7 A9 59 02 EA 93 1F FF 92
  87.             8B 01 24 04 FF 8C A9 6A 63 24 05 FF 85 93 54 54 53 EB D8 94 54 70
  88.             AA 59 03 EA 1A 60 94 54 1F 06 94 54 54 1C FF B8 DA AB 5A 01 36 01
  89.             6A A4 A8 AE 73 02 97 72 AF AA 73 02 97 55 1A 2D 5B 8C 06 1A 0C 8B
  90.             00 36 01 6A A4 7B 02 16 01 7A 00 92 20 71 16 01 A8 77 CC 00 DB 93
  91.             72 AE 73 02 97 72 DD 8C 08 AB 6B 01 17 AD 31 02 21 14 AC AC 3C 04
  92.             19 0A DC AE 87 00 26 46 01 04 8C 09 1A 30 8B 00 7A 01 2D 0A 3E 05
  93.             8B 02 A9 73 02 DD AE AE 6B 01 17 B3 2F CB 55 F3 36 01 6A A4 A8 7B
  94.             09 A8 8B 04 AC 36 03 69 D4 7B 08 16 01 A9 7B 06 16 05 92 20 4D AC
  95.             DB 97 72 B3 73 02 9C 72 69 CB B0 AC B1 69 CB AC B1 69 CB 3C 04 19
  96.             0E
  97.            )
  98.       "LETF code contains a dotted list, ending with ~S" VALUES-LIST 2.
  99.       MULTIPLE-VALUE-LIST THE 3. "illegal syntax in LETF binding: ~S" VALUES
  100.       #.#'SYMBOLP #.#'LIST GET-SETF-METHOD
  101.   )  )